home *** CD-ROM | disk | FTP | other *** search
/ Network CD 2 / Network CD - Volume 2.iso / programs / internet / terminal / vltj5867.lha / VLT / scp / NeatStuff.scp < prev    next >
Encoding:
Text File  |  1994-04-17  |  4.4 KB  |  111 lines
  1. ###
  2. #
  3. #   This script sets up your ALT and SHIFT ALT cursor keys to manipulate the
  4. #   the secondary cursor, and also sets up some useful programs for the
  5. #   mouse. And further, it programs the User menu to something useful.
  6. #
  7. ###
  8. #
  9. #   Set the programs for the mouse.
  10. #
  11. #   Just the left mouse button by itself:
  12. #   Normally do nothing, but if there is a highlighted area, unhighlight it
  13. #
  14. mousesupport selectdown            (~if not second exit; movecursor hide;)
  15. mousesupport selectup              ()
  16. #
  17. #   Shift left mouse button:
  18. #   Send mouse moves to the host to get the cursor to the mouse position.
  19. #
  20. mousesupport shift selectdown      (auto)
  21. mousesupport shift selectup        ()
  22. #
  23. #   Ctrl left mouse button:
  24. #   Drag out an area. The area stays highlighted.
  25. #
  26. mousesupport ctrl selectdown       (~movecursor %X %X %Y %Y; $1: if selectdown (movecursor %X mouse %Y mouse) else (goto $2); goto $1; $2: exit)
  27. mousesupport ctrl selectup         ()
  28. #
  29. #   Alt left mouse button:
  30. #   If there is a highlighted area on the screen, this function
  31. #   will unhighlight it, and paste it to the serial port.
  32. #
  33. mousesupport alt   selectdown      (~if not second exit; move clip; move hide; paste clip; paste auto)
  34. mousesupport alt   selectup        ()
  35. #
  36. #   Shift ctrl left mouse button:
  37. #   Click on a "word" on the display and it will be highlighted.
  38. #
  39. mousesupport shift ctrl selectdown (~rx ("move %X %Y"; "extr reviewlineatcursor"; "move %x %y"; s = " "vlt.reviewlineatcursor" "; "move "lastpos(" ",s,%X+1) pos(" ",s,%X+1)-1 %Y %Y;))
  40. mousesupport shift ctrl selectup   ()
  41. #
  42. #   Shift alt left mouse button:
  43. #   Put up a window with the column and row of where the mouse was clicked.
  44. #
  45. mousesupport shift alt  selectdown (~message (Column %X Row %Y))
  46. mousesupport shift alt  selectup   ()
  47. #
  48. #   Ctrl alt left mouse button:
  49. #   For you bixen: click on the conference/topic name on BIX, and it will resign
  50. #   the topic for you.
  51. #
  52. mousesupport ctrl alt   selectdown (~rx ("move %X %Y"; "extr reviewlineatcursor"; "move %x %y"; s = " "vlt.reviewlineatcursor" "; "paste string (resign "word(substr(s, lastpos(" ", s, %X+1)), 1)"*R)"; "paste auto"))
  53. mousesupport ctrl alt   selectup   ()
  54. #
  55. #   Ctrl shift alt left mouse button:
  56. #   If there is a highlighted area on the screen, this function
  57. #   will unhighlight it, and paste it to the serial port. However, it
  58. #   will first add sufficient spaces to arrive at the column you clicked on.
  59. #
  60. mousesupport ctrl shift alt selectdown (~if not second exit; move clip; move hide; rx ("paste string ("copies(" ", max(%X - %x, 1))"); paste auto; paste clip; paste auto"))
  61. mousesupport ctrl shift alt selectup   ()
  62.  
  63.  
  64. #
  65. #   ALT and SHIFT/ALT 0 on keypad:
  66. #   Save what's currently highlighted to the clipboard.
  67. #
  68. function 81  (~movecursor clip; movecursor hide)
  69. function 105 (~movecursor clip; movecursor hide;)
  70. #
  71. #   ALT and SHIFT/ALT Dot key on keypad:
  72. #   Get rid of the currently highlighted cursor.
  73. #
  74. function 98  (~movecursor hide)
  75. function 122 (~movecursor hide)
  76. #
  77. #   ALT and SHIFT/ALT Enter key on keypad
  78. #   Take the clipboard contents and paste them to the serial port.
  79. #
  80. function 91  (~paste clip; paste edit auto;)
  81. function 115 (~paste clip; paste auto;)
  82. #
  83. #   ALT cursor keys: up, down, right, left
  84. #   Move the secondary cursor around.
  85. #
  86. function 99  (~movecursor rel 0 rel 0 rel -1 rel -1)
  87. function 100 (~movecursor rel 0 rel 0 rel 1 rel 1)
  88. function 101 (~movecursor rel 1 rel 1 rel 0 rel 0)
  89. function 102 (~movecursor rel -1 rel -1 rel 0 rel 0)
  90. #
  91. #   SHIFT/ALT cursor keys: up, down, right, left
  92. #   Make the secondary cursor bigger or smaller.
  93. #
  94. function 123 (~movecursor rel 0 rel 0 rel 0 rel -1)
  95. function 124 (~movecursor rel 0 rel 0 rel 0 rel 1)
  96. function 125 (~movecursor rel 0 rel 1 rel 0 rel 0)
  97. function 126 (~movecursor rel 0 rel -1 rel 0 rel 0)
  98. #
  99. #   Program the menus to something useful
  100. #
  101. function 41 (~@VLTPhoneBook.vlt   #VLT Phone Book)
  102. function 42 (~@2.04ScreenMode.vlt #ScreenMode for 2.04 Users)
  103. function 43 (~on (OK) continue; send (+++); delay 3; send (ATH*R)  #Hayes Modem Hangup)
  104. function 44 (~send (*TMy Signature?*R)  #Send Signature)
  105. function 45 (~@SendASCII.vlt      #Send ASCII file)
  106. function 46 (~titlebar toggle     #Toggle Screen Title Bar)
  107. function 47 (~@ManualMsg.scp      #About the VLT Manual)
  108. function 48 (~schedule (delay 4; message); rx ("message (Available Memory: "storage()" bytes)") #Display Time - Date - Memory)
  109. function 49 (~@PrintScreen.vlt    #Print Screen)
  110. function 50 (~mess (See the new Help item in the VLT menu!)  #Menu Help)
  111.